HA$PBExportHeader$w_arg_report2.srw
forward
global type w_arg_report2 from window
end type
type cb_3 from commandbutton within w_arg_report2
end type
type cb_2 from commandbutton within w_arg_report2
end type
type cb_1 from commandbutton within w_arg_report2
end type
type dw_1 from datawindow within w_arg_report2
end type
end forward

global type w_arg_report2 from window
integer width = 2085
integer height = 900
boolean titlebar = true
string title = "Parametros"
boolean controlmenu = true
windowtype windowtype = response!
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
cb_3 cb_3
cb_2 cb_2
cb_1 cb_1
dw_1 dw_1
end type
global w_arg_report2 w_arg_report2

type variables
s_param_report  istruc_param_report_arg
integer ii_arg
datastore ids_report
datawindow idw
end variables

forward prototypes
public subroutine of_retrieve (any param1)
public subroutine of_retrieve (any param1, any param2)
public subroutine of_retrieve (any param1, any param2, any param3)
end prototypes

public subroutine of_retrieve (any param1);/*
*/

idw.retrieve(param1 )

commit;
end subroutine

public subroutine of_retrieve (any param1, any param2);/*
*/

idw.retrieve(param1,param2 )

commit;
end subroutine

public subroutine of_retrieve (any param1, any param2, any param3);/*
*/

idw.retrieve(param1,param2 ,param3 )

commit;
end subroutine

on w_arg_report2.create
this.cb_3=create cb_3
this.cb_2=create cb_2
this.cb_1=create cb_1
this.dw_1=create dw_1
this.Control[]={this.cb_3,&
this.cb_2,&
this.cb_1,&
this.dw_1}
end on

on w_arg_report2.destroy
destroy(this.cb_3)
destroy(this.cb_2)
destroy(this.cb_1)
destroy(this.dw_1)
end on

event open;//istruc_param_report_arg = Message.PowerObjectParm
//string ls_param
//
//
//
//ids_report = istruc_param_report_arg.as_storereport
//
//idw           = istruc_param_report_arg.dw_preview
//
//ls_param = ids_report.object.cparam[1 ]
//ii_arg = ids_report.object.iCantParam[1 ]
//
//








//f_msj('','hola' + ls_param ,4 )

end event

type cb_3 from commandbutton within w_arg_report2
integer x = 1691
integer y = 312
integer width = 402
integer height = 112
integer taborder = 40
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "none"
end type

type cb_2 from commandbutton within w_arg_report2
integer x = 1650
integer y = 156
integer width = 402
integer height = 112
integer taborder = 30
integer textsize = -8
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "Salir"
end type

event clicked;close(parent)
end event

type cb_1 from commandbutton within w_arg_report2
integer x = 1646
integer y = 28
integer width = 402
integer height = 112
integer taborder = 20
integer textsize = -8
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "Ejecutar"
end type

event clicked;integer   li_arg[]
string ls_arg1,ls_arg2
long ll_arg1,ll_arg2
datetime ldt_arg1,ldt_arg2
decimal ld_arg1,ld_arg2
any lany1,lany2,lany3

lany1= 1
lany2= 2
lany3= '10403251882'
//of_retrieve(lany1,lany2 ) 
//of_retrieve(lany1 ) 


commit;

close(parent)
end event

type dw_1 from datawindow within w_arg_report2
integer x = 23
integer y = 24
integer width = 1600
integer height = 752
integer taborder = 10
string title = "none"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

